
module Test where
--for experiment with Haskell
import qualified Data.Map as Map
import CPUTime
import Array

bx = [1, 2, 3]
mytake n = foldl (\xs x -> if length xs == n then xs else xs ++ [x]) []


main = putStrLn $ show (mytake 2 bx)